home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 July / Ahoy_Magazine_86-07_1986_Double_L.d64 / menu c-64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  35 lines
  1. 100 poke53280,6:poke53281,3:printchr$(142)
  2. 110 gosub1000
  3. 120 l$=""
  4. 140 print"[147]":fori=1to5:printtab(11)a$(i):next:ta=11
  5. 145 print"[145] "a$(6)spc(2)"[183]"spc(8)"[183]"spc(6)a$(7):print" "a$(8)
  6. 150 a=a+1:b=b+1:readpr$:ifa>9thenta=10
  7. 160 printleft$(l$,b+7)tab(ta)"[144]"a"-"pr$
  8. 165 ifb=14then175
  9. 170 goto 150
  10. 175 ifa>=28thenrestore:a=0
  11. 190 printleft$(l$,24)tab(7)"[149](c) ion international inc"
  12. 200 printleft$(l$,22)tab(8)" return [146][144] or choose no.";
  13. 210 poke198,0:inputan$:an=val(an$):b=0
  14. 215 ifan$=""then140
  15. 225 restore:forch=1toan:readpr$:next
  16. 230 print"[147]":poke53280,0:poke53281,0
  17. 235 printleft$(l$,15)tab(10)"[156][204]oading "pr$"[144]"
  18. 240 print "load";chr$(34);pr$;chr$(34);",8,1"
  19. 250 print "run":print "[145][145][145][145][145][145][145][145][145]"
  20. 260 poke 631,13:poke 632,13:poke 198,2:end
  21. 490 data ahoy! notes,comal notes
  22. 500 data flankspeed,64 bug rep,128 bug rep,sort 128,sort 64,left overs 1
  23. 510 data left overs 2,sound challenge,double wedge,double wedge 2,token lister 1
  24. 520 data token lister 2,copychrs.128,copychrs2.128,c-64 dos,c-128 dos
  25. 530 data music school,nbrgll run 128,crazy joe,head-on boot,escape skull
  26. 540 data wordcount,screen sleuth,reversed remarks,revrem demo,boot c64 comal
  27. 1000 a$(1)="[144][207][205][206][183][205][207][183][183][205][207][205] [207][205][207][205][207][205]"
  28. 1010 a$(2)="[180] [223][169] [146][180]   [146][180] [223][146][180] [146][180] [146][180] "
  29. 1020 a$(3)="[180] [146][223][169] [146][180] [146][205] [180] [146][223][223] [146][180] [146][180] "
  30. 1030 a$(4)="[180] [146] [180] [146][180] [175][146][205][180] [146][205][223] [146][180] [146][180] "
  31. 1040 a$(5)="[205] [146] [205] [146][205]   [146][205] [146] [205] [146][205]   "
  32. 1050 a$(6)="[144][207][183][183][183][183][183][183][183][183][183]":a$(7)="[183][183][183][183][183][183][183][183][183][208]"
  33. 1060 a$(8)="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  34. 1100 return
  35.